﻿Public Class StringComparerCaseInsensitive
  Implements System.Collections.Generic.IEqualityComparer(Of String)

  Public Function Equals1(ByVal x As String, ByVal y As String) As Boolean Implements System.Collections.Generic.IEqualityComparer(Of String).Equals
    Return (String.Compare(x, y, True) = 0)
  End Function

  Public Function GetHashCode1(ByVal obj As String) As Integer Implements System.Collections.Generic.IEqualityComparer(Of String).GetHashCode
    Return obj.ToLower.GetHashCode
  End Function
End Class
